function Boss_Enrage(Unit, Event)
	Unit:SendChatMessage(12, 0, "Umm, what happened? Cannot move? Hahahahaa.....")
	Unit:RegisterEvent("Boss_Wave",1000, 0)
end

function Boss_Wave(Unit, Event)
	print "Boss Wave"
        	if Unit:GetHealthPct() < 15 then
	Unit:RemoveEvents()
	Unit:RegisterEvent("WaveCast",10000, 0)
	Unit:RegisterEvent("Boss_Hellfire",1000, 0)
end
end

function WaveCast(Unit, Event)
	Unit:FullCastSpellOnTarget(36278,Unit:GetClosestPlayer())
	Unit:SendChatMessage(12, 0, "BURN!!!!!")
end

function Boss_Hellfire(Unit, Event)
	print "Boss Helfire"
	if Unit:GetHealthPct() < 10 then
	Unit:RemoveEvents()
	Unit:RegisterEvent("HellfireCast",10000, 0)
	Unit:RegisterEvent("Boss_Holy_Ground",1000, 0)
end
end

function HellfireCast(Unit, Event)
	Unit:FullCastSpellOnTarget(43465,Unit:GetClosestPlayer())
	Unit:SendChatMessage(12, 0, "Why Cannot you kill me, BURN!!!!!!")
end

function Boss_Holy_Ground(Unit, Event)
	print "Boss Holy Ground"
	if Unit:GetHealthPct() < 5 then
	Unit:RemoveEvents()
	Unit:RegisterEvent("HolyGroundCast",10000, 0)
end
end

function HolyGroundCast(Unit, Event)
	Unit:FullCastSpellOnTarget(29512,Unit:GetClosestPlayer())
	Unit:SendChatMessage(12, 0, "And for the finish take a Holy Spell.....")
end


function Boss_OnCombat(Unit, Event)
	Unit:RegisterEvent("Boss_Enrage",7000,0)
end

RegisterUnitEvent(130023,1,"Boss_OnCombat")